home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 331 / gemfsc14 / aessrc14 / aesfsel1.s < prev    next >
Text File  |  1989-04-06  |  1KB  |  37 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.           .include  "aesfast.sh"
  9.           
  10. ;*************************************************************************
  11. ;*
  12. ;* FSel manager routine (old-style fsel'er)..
  13. ;*
  14. ;*************************************************************************
  15.  
  16. ;-------------------------------------------------------------------------
  17. ; fsel_input
  18. ;-------------------------------------------------------------------------
  19.  
  20. _fsel_input::
  21.  
  22.           .cargs    #8,.ptr1.l,.ptr2.l,.button.l
  23.           link      a6,#-4
  24.  
  25.           AControl  90,0,2,2
  26.  
  27.           moveq.l   #-4,d2       
  28.           lea       .ptr1(a6),a0       ; -> addrin
  29.           ACall     RET2HERE
  30.           
  31.           moveq.l   #-4,d1
  32.           lea       .button(a6),a1
  33.           jmp       (a0)
  34.           
  35. ;         end of code
  36.  
  37.